% Bufton's wind velocity profile
% page 22 in <<Principle of adaptive optics>>
function W_V = Bufton_W_V()

% output: W_V(z), z with unit in 'km'
W_V = @(z) 5 + 30*exp(-((z-9.4)/4.8).^2);

% end of the function
end